home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / DELPHI32 / GRAPHICS / IMGLIB95 / UDBTOOLB.PA_ / UDBTOOLB.PA
Text File  |  1996-03-31  |  2KB  |  93 lines
  1. {
  2. Written by Jan Dekkers and Kevin Adams (c) 1995, 1996. If you are a non
  3. registered client, you may use or alter this demo only for evaluation
  4. purposes.
  5.  
  6. Copyright by SkyLine Tools. All rights reserved.
  7.  
  8. Part of Imagelib VCL/DLL Library.
  9. }
  10.  
  11. unit udbtoolb;
  12.  
  13. {Includes settings to compile in either 16 or 32 bit}
  14. {$I DEFILIB.INC}
  15.  
  16. interface
  17.  
  18. uses
  19. {$IFDEF DEL32}
  20.   Windows,
  21. {$ELSE}
  22.   WinTypes,
  23.   WinProcs,
  24. {$ENDIF}
  25.   DLL95V1,
  26.   Messages,
  27.   SysUtils,
  28.   Classes,
  29.   Graphics,
  30.   Controls,
  31.   Forms,
  32.   Dialogs,
  33.   StdCtrls,
  34.   DB,
  35.   DBTables,
  36.   DMIToolB,   {PDBMultiImage Toolbar VCL component}
  37.   TDMULTIP;   {PDBMultiMedia1, PDBMultiImage VCL components}
  38.  
  39. type
  40.   TDBMultiImageToolbar = class(TForm)
  41.     PDBMultiImage1: TPDBMultiImage;
  42.     Table1: TTable;
  43.     DataSource1: TDataSource;
  44.     CheckBox1: TCheckBox;
  45.     PDBMImageToolBar1: TPDBMImageToolBar;
  46.     procedure CheckBox1Click(Sender: TObject);
  47.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  48.     procedure FormCreate(Sender: TObject);
  49.   private
  50.     { Private declarations }
  51.   public
  52.     { Public declarations }
  53.   end;
  54.  
  55. var
  56.   DBMultiImageToolbar: TDBMultiImageToolbar;
  57.  
  58. implementation
  59.  
  60. {$R *.DFM}
  61. {------------------------------------------------------------------------}
  62.  
  63. procedure TDBMultiImageToolbar.CheckBox1Click(Sender: TObject);
  64. begin
  65.      PDBMImageToolBar1.ShowToolBar:=CheckBox1.Checked;
  66. end;
  67. {------------------------------------------------------------------------}
  68.  
  69. procedure TDBMultiImageToolbar.FormClose(Sender: TObject;
  70.   var Action: TCloseAction);
  71. begin
  72.      DBMultiImageToolbar:=Nil;
  73.      Action:=caFree;
  74. end;
  75. {------------------------------------------------------------------------}
  76.  
  77. procedure TDBMultiImageToolbar.FormCreate(Sender: TObject);
  78. begin
  79.    If FileExists(ExtractFilePath(Application.ExeName)+'JPSTAMP.DBF') then begin
  80.        {if the table exists open it on creation}
  81.        Table1.DataBaseName:=ExtractFilePath(Application.ExeName);
  82.        Table1.TableName:='JPSTAMP.DBF';
  83.        Table1.Active:=True;
  84.     end;
  85.   {On create show the toolbar}
  86.   PDBMImageToolBar1.ShowToolBar:=true;
  87.  
  88.   PDBMImageToolBar1.PreviewsDir:=ExtractFilePath(Application.Exename);
  89. end;
  90. {------------------------------------------------------------------------}
  91.  
  92. end.
  93.